home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 45 / 045.d81 / form printer (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  887 b   |  27 lines
  1. 10 poke53281,1:poke53280,1
  2. 20 print"[147]        [211][213][194][205][201][211][211][201][207][206] [198][207][210][205] [208][210][201][206][212][197][210]"
  3. 30 print"     [208] - [208]rint [211]ubmission [198]orm"
  4. 40 print"     [210] - [210]eturn to [204][207][193][196][211][212][193][210]"
  5. 50 print"     [208]ress [208] or [210]."
  6. 60 a=peek(203):ifa<>41anda<>17then60
  7. 70 ifa=17thengosub60000:goto50
  8. 80 print"      [211]et printer to top of paper."
  9. 90 print"   [208]ress [211][208][193][195][197] to [208][210][201][206][212], [193] to [193][194][207][210][212]."
  10. 100 a=peek(203):ifa<>60anda<>10then100
  11. 110 ifa=10thenrun
  12. 115 open15,4,15:close15:ifst=.then120
  13. 116 print"           [208]rinter [206]ot [210]eady!"
  14. 117 fora=1to2000:next:print"[145]                                  [145][145][145]":goto100
  15. 120 open4,4,7:open3,8,3,"submission form":print#4,"          ";
  16. 130 fori=.to1:get#3,a$:i=st
  17. 133 ifa$=chr$(13)thenprint#4:print#4,"          ";:goto140
  18. 137 print#4,a$;
  19. 140 next:close3:print#4:print#4:print#4:print#4:print#4:print#4:print#4
  20. 150 close4:run
  21. 60000 print"[145]  [193]re you sure you want to quit? ([217]/[206])"
  22. 60010 a=peek(203):ifa<>25anda<>39then60010
  23. 60020 ifa=39thenprint"[145]                                      [145]":return
  24. 60030 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  25. 60040 ifer<>63thenpoke198,.:end
  26. 60050 load"hello connect",8
  27.